home *** CD-ROM | disk | FTP | other *** search
/ Mantenimiento Redes Del PC / Mantenimiento Redes Del PC.iso / recomen / ajour112 / ajour.exe / 0 / RCDATA / TAJOURMAIN / TAJOURMAIN.txt
Text File  |  1997-05-01  |  14KB  |  589 lines
  1. inherited AjourMain: TAjourMain
  2.   Left = 148
  3.   Top = 3
  4.   VertScrollBar.Range = 0
  5.   BorderIcons = [biSystemMenu, biMinimize, biHelp]
  6.   BorderStyle = bsSingle
  7.   Caption = 'Ajour'
  8.   ClientHeight = 418
  9.   ClientWidth = 344
  10.   Ctl3D = False
  11.   Color = clNavy
  12.   Menu = MainMenu1
  13.   OnActivate = FormActivate
  14.   OnClose = FormClose
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   inherited BundPanel: TPanel [0]
  18.     Top = 380
  19.     Width = 344
  20.     Height = 37
  21.     Align = alNone
  22.     BevelOuter = bvRaised
  23.     BorderStyle = bsSingle
  24.     Color = clRed
  25.     Ctl3D = False
  26.     ParentCtl3D = False
  27.     TabOrder = 2
  28.     object Label3: TLabel [0]
  29.       Left = 24
  30.       Top = 5
  31.       Width = 238
  32.       Height = 26
  33.       AutoSize = False
  34.       Caption = 'Og n∩┐╜r du er helt f∩┐╜rdig'
  35.       Font.Color = clWhite
  36.       Font.Height = -19
  37.       Font.Name = 'Comic Sans MS'
  38.       Font.Style = []
  39.       ParentFont = False
  40.     end
  41.     inherited ExitKnap: TButton
  42.       Left = 264
  43.       Top = 6
  44.       Width = 63
  45.       Hint = 'Lukker Ajour ned'
  46.       Font.Color = clBlack
  47.       Font.Height = -13
  48.       Font.Name = 'Comic Sans MS'
  49.       Font.Style = [fsBold]
  50.       ParentFont = False
  51.       ParentShowHint = False
  52.       ShowHint = True
  53.     end
  54.   end
  55.   inherited TopPanel: TPanel [1]
  56.     Top = 1
  57.     Width = 344
  58.     Align = alNone
  59.     BorderStyle = bsSingle
  60.     Color = clRed
  61.     Ctl3D = False
  62.     ParentCtl3D = False
  63.     inherited Label1: TLabel
  64.       Left = 9
  65.       Top = -2
  66.       Width = 130
  67.       Height = 38
  68.       Align = alNone
  69.       AutoSize = False
  70.       Caption = 'Ajour'
  71.       Color = clRed
  72.       Font.Color = clWhite
  73.       Font.Style = [fsBold]
  74.       ParentColor = False
  75.       Transparent = True
  76.     end
  77.     object Label2: TLabel
  78.       Left = 168
  79.       Top = 14
  80.       Width = 168
  81.       Height = 21
  82.       Alignment = taRightJustify
  83.       AutoSize = False
  84.       Caption = '∩┐╜1997 Henning Schulz'
  85.       Font.Color = clWhite
  86.       Font.Height = -13
  87.       Font.Name = 'Comic Sans MS'
  88.       Font.Style = []
  89.       ParentFont = False
  90.       WordWrap = True
  91.     end
  92.   end
  93.   object Emne: TPageControl
  94.     Left = 0
  95.     Top = 43
  96.     Width = 344
  97.     Height = 338
  98.     ActivePage = Aftaler
  99.     Font.Color = clBlack
  100.     Font.Height = -13
  101.     Font.Name = 'Comic Sans MS'
  102.     Font.Style = [fsBold]
  103.     ParentFont = False
  104.     TabOrder = 1
  105.     TabWidth = 113
  106.     object Aftaler: TTabSheet
  107.       Caption = 'Aftalekalender'
  108.       object Panel1: TPanel
  109.         Left = 1
  110.         Top = -1
  111.         Width = 337
  112.         Height = 306
  113.         BorderStyle = bsSingle
  114.         Color = clRed
  115.         Ctl3D = False
  116.         ParentCtl3D = False
  117.         TabOrder = 5
  118.         object Label4: TLabel
  119.           Left = 16
  120.           Top = 2
  121.           Width = 125
  122.           Height = 26
  123.           AutoSize = False
  124.           Caption = 'V∩┐╜lg datoen'
  125.           Font.Color = clWhite
  126.           Font.Height = -19
  127.           Font.Name = 'Comic Sans MS'
  128.           Font.Style = []
  129.           ParentFont = False
  130.         end
  131.         object Label5: TLabel
  132.           Left = 61
  133.           Top = 38
  134.           Width = 15
  135.           Height = 16
  136.           Alignment = taRightJustify
  137.           Caption = '∩┐╜r'
  138.           Font.Color = clWhite
  139.           Font.Height = -12
  140.           Font.Name = 'Comic Sans MS'
  141.           Font.Style = [fsBold]
  142.           ParentFont = False
  143.         end
  144.         object Label6: TLabel
  145.           Left = 50
  146.           Top = 63
  147.           Width = 38
  148.           Height = 16
  149.           Alignment = taRightJustify
  150.           Caption = 'M∩┐╜ned'
  151.           Font.Color = clWhite
  152.           Font.Height = -12
  153.           Font.Name = 'Comic Sans MS'
  154.           Font.Style = [fsBold]
  155.           ParentFont = False
  156.         end
  157.         object Label7: TLabel
  158.           Left = 16
  159.           Top = 149
  160.           Width = 308
  161.           Height = 26
  162.           AutoSize = False
  163.           Caption = 'Rediger datoens aftaler m.v.'
  164.           Font.Color = clWhite
  165.           Font.Height = -19
  166.           Font.Name = 'Comic Sans MS'
  167.           Font.Style = []
  168.           ParentFont = False
  169.         end
  170.         object Hellig: TLabel
  171.           Left = 4
  172.           Top = 86
  173.           Width = 117
  174.           Height = 64
  175.           Alignment = taRightJustify
  176.           AutoSize = False
  177.           Caption = 'P∩┐╜skedag'
  178.           Font.Color = clWhite
  179.           Font.Height = -11
  180.           Font.Name = 'Comic Sans MS'
  181.           Font.Style = []
  182.           ParentFont = False
  183.         end
  184.         object LblPrev: TLabel
  185.           Left = 136
  186.           Top = 16
  187.           Width = 68
  188.           Height = 15
  189.           Alignment = taRightJustify
  190.           AutoSize = False
  191.           Caption = 'Foreg∩┐╜ende'
  192.           Font.Color = clWhite
  193.           Font.Height = -11
  194.           Font.Name = 'Comic Sans MS'
  195.           Font.Style = []
  196.           ParentFont = False
  197.         end
  198.         object LblNext: TLabel
  199.           Left = 236
  200.           Top = 16
  201.           Width = 40
  202.           Height = 15
  203.           AutoSize = False
  204.           Caption = 'N∩┐╜ste'
  205.           Font.Color = clWhite
  206.           Font.Height = -11
  207.           Font.Name = 'Comic Sans MS'
  208.           Font.Style = []
  209.           ParentFont = False
  210.         end
  211.         object LblAftDag: TLabel
  212.           Left = 161
  213.           Top = 2
  214.           Width = 113
  215.           Height = 15
  216.           Alignment = taCenter
  217.           AutoSize = False
  218.           Caption = 'Aftaledag'
  219.           Color = clRed
  220.           Font.Color = clWhite
  221.           Font.Height = -11
  222.           Font.Name = 'Comic Sans MS'
  223.           Font.Style = []
  224.           ParentColor = False
  225.           ParentFont = False
  226.         end
  227.         object IPTxt: TMemo
  228.           Left = 6
  229.           Top = 175
  230.           Width = 322
  231.           Height = 121
  232.           Hint = 'Rediger aftaler'
  233.           HelpContext = 4
  234.           Ctl3D = True
  235.           Font.Color = clWindowText
  236.           Font.Height = -11
  237.           Font.Name = 'MS Sans Serif'
  238.           Font.Style = []
  239.           ParentCtl3D = False
  240.           ParentFont = False
  241.           ParentShowHint = False
  242.           ScrollBars = ssVertical
  243.           ShowHint = True
  244.           TabOrder = 1
  245.           OnExit = IPTxtExit
  246.         end
  247.         object IdagKnap: TButton
  248.           Left = 281
  249.           Top = 6
  250.           Width = 45
  251.           Height = 25
  252.           Hint = 'S∩┐╜tter kalenderen til idag'
  253.           Caption = 'I dag'
  254.           Font.Color = clBlack
  255.           Font.Height = -13
  256.           Font.Name = 'Comic Sans MS'
  257.           Font.Style = [fsBold]
  258.           ParentFont = False
  259.           ParentShowHint = False
  260.           ShowHint = True
  261.           TabOrder = 0
  262.           TabStop = False
  263.           OnClick = IdagKnapClick
  264.         end
  265.         object AftBladr: TUpDown
  266.           Left = 205
  267.           Top = 17
  268.           Width = 29
  269.           Height = 15
  270.           Hint = 'Bladrer i aftalerne'
  271.           Min = -32767
  272.           Max = 32767
  273.           Orientation = udHorizontal
  274.           ParentShowHint = False
  275.           Position = 0
  276.           ShowHint = True
  277.           TabOrder = 2
  278.           Wrap = False
  279.           OnClick = AftBladrClick
  280.         end
  281.         object Dial1Knap: TButton
  282.           Left = 272
  283.           Top = 153
  284.           Width = 56
  285.           Height = 21
  286.           Caption = 'Ring op'
  287.           Font.Color = clBlack
  288.           Font.Height = -13
  289.           Font.Name = 'Comic Sans MS'
  290.           Font.Style = [fsBold]
  291.           ParentFont = False
  292.           ParentShowHint = False
  293.           ShowHint = True
  294.           TabOrder = 3
  295.           OnClick = DialKnapClick
  296.         end
  297.       end
  298.       object IPKal: TCalendar
  299.         Left = 130
  300.         Top = 33
  301.         Width = 199
  302.         Height = 115
  303.         Hint = 'V∩┐╜lg dag'
  304.         HelpContext = 3
  305.         Ctl3D = True
  306.         Font.Color = clWindowText
  307.         Font.Height = -11
  308.         Font.Name = 'MS Sans Serif'
  309.         Font.Style = []
  310.         ParentFont = False
  311.         ParentShowHint = False
  312.         ShowHint = True
  313.         StartOfWeek = 1
  314.         TabOrder = 4
  315.         OnChange = IPKalChange
  316.       end
  317.       object IPAar: TUpDown
  318.         Left = 112
  319.         Top = 38
  320.         Width = 15
  321.         Height = 19
  322.         Hint = 'V∩┐╜lg ∩┐╜r'
  323.         HelpContext = 1
  324.         Associate = VisAar
  325.         Min = 1901
  326.         Max = 2079
  327.         ParentShowHint = False
  328.         Position = 1901
  329.         ShowHint = True
  330.         TabOrder = 1
  331.         Thousands = False
  332.         Wrap = False
  333.         OnClick = IPAarClick
  334.       end
  335.       object IPMnd: TUpDown
  336.         Left = 112
  337.         Top = 63
  338.         Width = 15
  339.         Height = 19
  340.         Hint = 'V∩┐╜lg m∩┐╜ned'
  341.         HelpContext = 1
  342.         Associate = VisMnd
  343.         Min = 1
  344.         Max = 12
  345.         ParentShowHint = False
  346.         Position = 1
  347.         ShowHint = True
  348.         TabOrder = 3
  349.         Thousands = False
  350.         Wrap = False
  351.         OnClick = IPMndClick
  352.       end
  353.       object VisAar: TEdit
  354.         Left = 81
  355.         Top = 38
  356.         Width = 31
  357.         Height = 19
  358.         Hint = 'V∩┐╜lg ∩┐╜r'
  359.         HelpContext = 1
  360.         Font.Color = clWindowText
  361.         Font.Height = -11
  362.         Font.Name = 'MS Sans Serif'
  363.         Font.Style = []
  364.         ParentFont = False
  365.         ParentShowHint = False
  366.         ReadOnly = True
  367.         ShowHint = True
  368.         TabOrder = 0
  369.         Text = '1901'
  370.       end
  371.       object VisMnd: TEdit
  372.         Left = 93
  373.         Top = 63
  374.         Width = 19
  375.         Height = 19
  376.         Hint = 'V∩┐╜lg m∩┐╜ned'
  377.         HelpContext = 2
  378.         Font.Color = clWindowText
  379.         Font.Height = -11
  380.         Font.Name = 'MS Sans Serif'
  381.         Font.Style = []
  382.         ParentFont = False
  383.         ParentShowHint = False
  384.         ReadOnly = True
  385.         ShowHint = True
  386.         TabOrder = 2
  387.         Text = '1'
  388.       end
  389.     end
  390.     object Mrkdage: TTabSheet
  391.       Caption = 'M∩┐╜rkedage'
  392.       Font.Color = clBlack
  393.       Font.Height = -11
  394.       Font.Name = 'MS Sans Serif'
  395.       Font.Style = []
  396.       ParentFont = False
  397.       object Panel4: TPanel
  398.         Left = 1
  399.         Top = 0
  400.         Width = 337
  401.         Height = 305
  402.         BorderStyle = bsSingle
  403.         Caption = 'Panel3'
  404.         Color = clRed
  405.         Ctl3D = False
  406.         ParentCtl3D = False
  407.         TabOrder = 0
  408.         object Label10: TLabel
  409.           Left = 16
  410.           Top = 1
  411.           Width = 297
  412.           Height = 26
  413.           AutoSize = False
  414.           Caption = 'Rediger m∩┐╜rkedage'
  415.           Font.Color = clWhite
  416.           Font.Height = -19
  417.           Font.Name = 'Comic Sans MS'
  418.           Font.Style = []
  419.           ParentFont = False
  420.         end
  421.         object IPMrk: TStringGrid
  422.           Left = 6
  423.           Top = 30
  424.           Width = 322
  425.           Height = 265
  426.           Hint = 'Rediger m∩┐╜rkedage'
  427.           HelpContext = 5
  428.           ColCount = 3
  429.           Ctl3D = True
  430.           DefaultColWidth = 100
  431.           DefaultRowHeight = 15
  432.           FixedCols = 0
  433.           RowCount = 300
  434.           Options = [goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goAlwaysShowEditor, goThumbTracking]
  435.           ParentCtl3D = False
  436.           ScrollBars = ssVertical
  437.           TabOrder = 0
  438.           OnExit = IPMrkExit
  439.           OnGetEditMask = IPMrkGetEditMask
  440.           OnSetEditText = IPMrkSetEditText
  441.           ColWidths = (
  442.             29
  443.             29
  444.             240)
  445.         end
  446.       end
  447.     end
  448.     object Opgaver: TTabSheet
  449.       Caption = 'Opgaver'
  450.       Font.Color = clBlack
  451.       Font.Height = -11
  452.       Font.Name = 'MS Sans Serif'
  453.       Font.Style = []
  454.       ParentFont = False
  455.       object Panel3: TPanel
  456.         Left = 1
  457.         Top = 0
  458.         Width = 337
  459.         Height = 305
  460.         BorderStyle = bsSingle
  461.         Caption = 'Panel3'
  462.         Color = clRed
  463.         TabOrder = 0
  464.         object Label9: TLabel
  465.           Left = 16
  466.           Top = 1
  467.           Width = 254
  468.           Height = 26
  469.           AutoSize = False
  470.           Caption = 'Rediger opgaver'
  471.           Font.Color = clWhite
  472.           Font.Height = -19
  473.           Font.Name = 'Comic Sans MS'
  474.           Font.Style = []
  475.           ParentFont = False
  476.         end
  477.         object IPNot: TMemo
  478.           Left = 6
  479.           Top = 30
  480.           Width = 322
  481.           Height = 265
  482.           Hint = 'Rediger opgaver'
  483.           HelpContext = 6
  484.           Ctl3D = True
  485.           ParentCtl3D = False
  486.           ParentShowHint = False
  487.           ScrollBars = ssVertical
  488.           ShowHint = True
  489.           TabOrder = 0
  490.           OnExit = IPNotExit
  491.         end
  492.         object Dial2Knap: TButton
  493.           Left = 272
  494.           Top = 4
  495.           Width = 56
  496.           Height = 23
  497.           Caption = 'Ring op'
  498.           Font.Color = clBlack
  499.           Font.Height = -13
  500.           Font.Name = 'Comic Sans MS'
  501.           Font.Style = [fsBold]
  502.           ParentFont = False
  503.           ParentShowHint = False
  504.           ShowHint = True
  505.           TabOrder = 1
  506.           OnClick = DialKnapClick
  507.         end
  508.       end
  509.     end
  510.   end
  511.   object MainMenu1: TMainMenu
  512.     object File1: TMenuItem
  513.       Caption = '&Filer'
  514.       ShortCut = 0
  515.       object Print1: TMenuItem
  516.         Caption = '&Udskriv...'
  517.         ShortCut = 0
  518.         OnClick = Print1Click
  519.       end
  520.       object N1: TMenuItem
  521.         Caption = '-'
  522.         ShortCut = 0
  523.       end
  524.       object Exit1: TMenuItem
  525.         Caption = 'A&fslut'
  526.         ShortCut = 0
  527.         OnClick = Exit1Click
  528.       end
  529.     end
  530.     object Lingua1: TMenuItem
  531.       Caption = 'Lingu&a'
  532.       ShortCut = 0
  533.       object Dansk1: TMenuItem
  534.         Caption = '&Dansk'
  535.         ShortCut = 0
  536.         OnClick = Dansk1Click
  537.       end
  538.       object English1: TMenuItem
  539.         Caption = '&English'
  540.         ShortCut = 0
  541.         OnClick = English1Click
  542.       end
  543.       object N2: TMenuItem
  544.         Caption = '-'
  545.         ShortCut = 0
  546.       end
  547.       object SOW_S: TMenuItem
  548.         Caption = 'Start ugen s∩┐╜ndag'
  549.         GroupIndex = 1
  550.         RadioItem = True
  551.         ShortCut = 0
  552.         OnClick = SOW_SClick
  553.       end
  554.       object SOW_M: TMenuItem
  555.         Caption = 'Start ugen mandag'
  556.         Checked = True
  557.         GroupIndex = 1
  558.         RadioItem = True
  559.         ShortCut = 0
  560.         OnClick = SOW_MClick
  561.       end
  562.     end
  563.     object Help1: TMenuItem
  564.       Caption = '&Hj∩┐╜lp'
  565.       ShortCut = 0
  566.       object Contents1: TMenuItem
  567.         Caption = '&Indhold'
  568.         ShortCut = 0
  569.         OnClick = Contents1Click
  570.       end
  571.       object About1: TMenuItem
  572.         Caption = '&Om...'
  573.         ShortCut = 0
  574.         OnClick = About1Click
  575.       end
  576.     end
  577.   end
  578.   object PrintDialog1: TPrintDialog
  579.     Left = 30
  580.     Top = 1
  581.   end
  582.   object Timer1: TTimer
  583.     Interval = 10000
  584.     OnTimer = Timer1Timer
  585.     Left = 60
  586.     Top = 1
  587.   end
  588. end
  589.